home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / util / libs / MMULib.lha / MMULib / Lib_Sources / kaputstr.i < prev    next >
Encoding:
Text File  |  1998-10-04  |  2.3 KB  |  70 lines
  1. ;*************************************************************************
  2. ;** mmu.library                                                         **
  3. ;**                                                                     **
  4. ;** a system library for arbitration and control of the MC68K MMUs      **
  5. ;**                                                                     **
  6. ;** © 1998 THOR-Software, Thomas Richter                                **
  7. ;** No commercial use, reassembly, modification without prior, written  **
  8. ;** permission of the authors.                                          **
  9. ;** Including this library in any commercial software REQUIRES a        **
  10. ;** written permission and the payment of a small fee.                  **
  11. ;**                                                                     **
  12. ;** This is an internal header file, do not depend on anything here.    **
  13. ;** Use the official include files.                                     **
  14. ;** Distributed only for the mmu.library development group for private  **
  15. ;** use.                                                                **
  16. ;**                                                                     **
  17. ;**---------------------------------------------------------------------**
  18. ;** Block: Output of debug information                                  **
  19. ;*************************************************************************
  20.  
  21. ;The next stuff is specifically DevPac only
  22.  
  23.         xref _KaputtString
  24.  
  25.         ifd __G2
  26.  
  27.         ifd PrintOut
  28. __sdj set 0
  29.  
  30. __kaputarg Macro
  31.         ifgt \1
  32.  
  33.         ifnc '\2',''
  34.         move.l \2,-(a7)
  35. __sdj    set     __sdj+4
  36.         endc
  37. _pe     set     \1-1
  38.         __kaputarg _pe,\3,\4,\5,\6,\7,\8,\9,\A,\B,\C,\D,\E,\F,\G,\H,\I,\J
  39.         endc
  40.  
  41.         endm
  42.  
  43. kaputstr Macro                  ;dump out data (german pun: kaputt=broken)
  44.         saveregs a0/a1
  45.  
  46. __sdj set 0
  47.         section main_data,data
  48. .__kptdata\@:      dc.b \1,10,13,0
  49.         even
  50.         section main_code,code
  51.         __kaputarg 18,\J,\I,\H,\G,\F,\E,\D,\C,\B,\A,\9,\8,\7,\6,\5,\4,\3,\2
  52.         lea .__kptdata\@,a0
  53.         move.l a7,a1
  54.         bsr _KaputtString
  55.  
  56.         ifne __sdj
  57.         lea __sdj(a7),a7
  58.         endc
  59.         loadregs
  60.         endm
  61.  
  62.         elseif
  63.  
  64. kaputstr Macro
  65.         endm
  66.  
  67.         endc
  68.  
  69.         endc
  70.